home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 7 / Amiga Format AFCD07 (Dec 1996, Issue 91).iso / serious / shareware / programming / muirexx2.1 / demos / muirexxbuild / build.rexx < prev    next >
OS/2 REXX Batch file  |  1996-09-05  |  8KB  |  133 lines
  1. /* A MUIRexx application for building MUIRexx Applications */
  2. options results
  3.  
  4. /* Method TAG ID definitions */
  5.  
  6. List_InsertSingle = 0x804254d5 /*               { ULONG MethodID; APTR entry; LONG pos; }; */
  7. Application_OpenConfigWindow = 0x804299ba /*    { ULONG MethodID; ULONG flags; }; */
  8.  
  9. /* Attribute TAG ID definitions */
  10.  
  11. Draggable =                       0x80420b6e /* V11 isg BOOL              */
  12. Dropable =                        0x8042fbce /* V11 isg BOOL              */
  13. Group_Columns =                   0x8042f416 /* V4  is. LONG              */
  14. Listview_DragType =               0x80425cd3 /* V11 isg LONG              */
  15. Listview_MultiSelect =            0x80427e08
  16. List_DragSortable =               0x80426099 /* V11 isg BOOL              */
  17. List_ShowDropMarks =              0x8042c6f3 /* V11 isg BOOL              */
  18. Menuitem_Shortcut =               0x80422030 /* V8  isg STRPTR            */
  19. Menuitem_Title =                  0x804218be /* V8  isg STRPTR            */
  20. Weight =                          0x80421d1f /* V4  i.. WORD              */
  21.  
  22. /* TAG variable definitions */
  23.  
  24. TRUE = 1
  25. FALSE = 0
  26. Listview_DragType_Immediate = 1
  27. Listview_MultiSelect_Shifted = 2
  28. List_GetEntry_Active = -1
  29. List_Insert_Active = -1
  30. List_Insert_Bottom = -3
  31.  
  32. address command "assign build: MUIRexx:demos/MUIRexxBuild"
  33.  
  34. address BUILD
  35.  
  36. window ID BWIN TITLE """MUIRexx GUI Builder""" COMMAND """quit""" PORT BUILD
  37.     menu LABEL """Project"""
  38.         menu LABEL '"Settings"'
  39.             item COMMAND '"method 'Application_OpenConfigWindow'"' PORT BUILD LABEL '"MUI..."'
  40.         endmenu
  41.         item ATTRS Menuitem_Title '-1'
  42.         item COMMAND """build:comm SAVE""" ATTRS Menuitem_Shortcut 'S' LABEL """Save"""
  43.         item COMMAND """build:comm READ""" ATTRS Menuitem_Shortcut 'R' LABEL """Read"""
  44.         item ATTRS Menuitem_Title "-1"
  45.         item COMMAND """quit""" PORT BUILD ATTRS Menuitem_Shortcut 'Q' LABEL """Quit"""
  46.     endmenu
  47.     group
  48.         group HORIZ
  49.             group ATTRS Weight 0
  50.                 group HORIZ
  51.                     label DOUBLE "Port:"
  52.                     string ID APRT CONTENT "TEST"
  53.                 endgroup
  54.                 group HORIZ FRAME LABEL "containers"
  55.                     button ATTRS Draggable TRUE NODE "window" LABEL "window"
  56.                     button ATTRS Draggable TRUE NODE "group" LABEL "group"
  57.                     button ATTRS Draggable TRUE NODE "menu" LABEL "menu"
  58.                     button ATTRS Draggable TRUE LABEL "do"
  59.                 endgroup
  60.                 group FRAME ATTRS Group_Columns 3 LABEL "objects"
  61.                     button ATTRS Draggable TRUE NODE "item" LABEL "item"
  62.                     button ATTRS Draggable TRUE NODE "space" LABEL "space"
  63.                     button ATTRS Draggable TRUE NODE "label" LABEL "label"
  64.                     button ATTRS Draggable TRUE NODE "view" LABEL "view"
  65.                     button ATTRS Draggable TRUE COMMAND """build:change_object %s""" NODE "gauge" LABEL "gauge"
  66.                     button ATTRS Draggable TRUE COMMAND """build:change_object %s""" NODE "meter" LABEL "meter"
  67.                     button ATTRS Draggable TRUE COMMAND """build:change_object %s""" NODE "button" LABEL "button"
  68.                     button ATTRS Draggable TRUE COMMAND """build:change_object %s""" NODE "text" LABEL "text"
  69.                     button ATTRS Draggable TRUE COMMAND """build:change_object %s""" NODE "switch" LABEL "switch"
  70.                     button ATTRS Draggable TRUE COMMAND """build:change_object %s""" NODE "image" LABEL "image"
  71.                     button ATTRS Draggable TRUE COMMAND """build:change_object %s""" NODE "check" LABEL "check"
  72.                     button ATTRS Draggable TRUE COMMAND """build:change_object %s""" NODE "cycle" LABEL "cycle"
  73.                     button ATTRS Draggable TRUE COMMAND """build:change_object %s""" NODE "radio" LABEL "radio"
  74.                     button ATTRS Draggable TRUE COMMAND """build:change_object %s""" NODE "string" LABEL "string"
  75.                     button ATTRS Draggable TRUE COMMAND """build:change_object %s""" NODE "popasl" LABEL "popasl"
  76.                     button ATTRS Draggable TRUE COMMAND """build:change_object %s""" NODE "poplist" LABEL "poplist"
  77.                     button ATTRS Draggable TRUE COMMAND """build:change_object %s""" NODE "slider" LABEL "slider"
  78.                     button ATTRS Draggable TRUE COMMAND """build:change_object %s""" NODE "popslider" LABEL "popslider"
  79.                     button ATTRS Draggable TRUE COMMAND """build:change_object %s""" NODE "knob" LABEL "knob"
  80.                     button ATTRS Draggable TRUE COMMAND """build:change_object %s""" NODE "list" LABEL "list"
  81.                     button ATTRS Draggable TRUE COMMAND """build:change_object %s""" NODE "dirlist" LABEL "dirlist"
  82.                     button ATTRS Draggable TRUE COMMAND """build:change_object %s""" NODE "volumelist" LABEL "volumelist"
  83.                     button ATTRS Draggable TRUE NODE "object" LABEL "object"
  84.                     button ATTRS Draggable TRUE LABEL
  85.                 endgroup
  86.                 group HORIZ FRAME LABEL "miscellaneous"
  87.                     button ATTRS Draggable TRUE NODE "application" LABEL "application"
  88.                     button ATTRS Draggable TRUE NODE "method" LABEL "method"
  89.                 endgroup
  90.                 space
  91.             endgroup
  92.             group REGISTER LABELS """Commands,Variables"""
  93.                 group
  94.                     list ID DLST DROP COMMAND """build:drop_object %s""",
  95.                         HELP """Drag and drop an object to create.\nDouble click on object to edit.\nClick on other object to change.""",
  96.                         ATTRS Listview_DragType Listview_DragType_Immediate,
  97.                               Listview_MultiSelect Listview_MultiSelect_Shifted,
  98.                               List_DragSortable TRUE
  99.                     group HORIZ
  100.                         button COMMAND """build:comm LEFT""" LABEL "<-"
  101.                         button COMMAND """build:comm RIGHT""" LABEL "->"
  102.                         button COMMAND """build:comm COPY""" LABEL "Copy"
  103.                         button COMMAND """list ID DLST POS "List_GetEntry_Active" STRING""" PORT BUILD LABEL "Remove"
  104.                     endgroup
  105.                     group HORIZ
  106.                         button COMMAND """build:comm CREATE""" LABEL "Create"
  107.                         button COMMAND """build:comm CLOSE""" LABEL "Close"
  108.                         button COMMAND """build:comm NEW""" LABEL "New"
  109.                     endgroup
  110.                 endgroup
  111.                 group
  112.                     list ID VLST DROP COMMAND """build:attrs VADD %s""",
  113.                         HELP """Drag and drop a variable name to define."""
  114.                     string ID VSTR COMMAND """list ID VLST INSERT POS "List_Insert_Bottom" NODUP STRING %s""" PORT BUILD
  115.                     group HORIZ
  116.                         button COMMAND """build:attrs LIST""" LABEL "Attribute List"
  117.                         button COMMAND """build:attrs VLIST""" LABEL "Variable List"
  118.                     endgroup
  119.                     group HORIZ
  120.                         button COMMAND """list ID VLST POS "List_GetEntry_Active" STRING""" PORT BUILD LABEL "Remove"
  121.                     endgroup
  122.                 endgroup
  123.             endgroup
  124.         endgroup
  125.     endgroup
  126. endwindow
  127.  
  128. list ID DLST PRESS COMMAND """build:ask_object %s"""
  129. list ID VLST PRESS COMMAND """string ID VSTR CONTENT %s""" PORT BUILD
  130. setvar directory 'build:test'
  131. call 'build:about'
  132. exit
  133.